home *** CD-ROM | disk | FTP | other *** search
/ Chip: Internet / Chip Internet.iso / wwwutil / cello / ins.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-10-01  |  4.6 KB  |  137 lines
  1.  
  2. USES WinDOS, WinCRT, Strings, WinProcs, WinTypes;
  3.  
  4. VAR  CurDir          : String;          { Aktuelles Verzeichnis }
  5.      CurDrive        : Char;            { CD-ROM-Laufwerk }
  6.      PCurDrive       : PChar;           {    " als PChar }
  7.      Dest            : String;          { Zielverzeichnis }
  8.      PDest           : PChar;           {     " als PChar }
  9.      Home            : PChar;           { Homepage }
  10.      Viewer          : PChar;           { Viewer-Eintrag in INI }
  11.      Kommando        : PChar;           { fⁿr WinExec }
  12.      CelloPfad       : PChar;           { Pfad zur INI im Zielverz. }
  13.      Loc, Auf        : Char;            { Benutzereingaben }
  14.      Erg             : Integer;         { IOResult }
  15.  
  16. BEGIN
  17.  
  18.   Writeln('Dieses Programm installiert den WWW-Browser Cello auf Ihrem System.');
  19.   Writeln('Sie k÷nnen die Installation durch Drⁿcken von CTRL-C abbrechen.');
  20.  
  21.   GetDir(0, CurDir);
  22.   CurDrive:=CurDir[1];
  23.  
  24.   GetMem(PCurDrive,2);
  25.   StrPCopy(PCurDrive,CurDrive);
  26.  
  27.   Writeln;
  28.   REPEAT
  29.     Writeln('Zielverzeichnis fⁿr Cello (z.B. C:\CELLO) ?');
  30.     Readln(Dest);
  31.     {$I-}
  32.     MkDir(Dest);
  33.     Erg:=IOResult;
  34.     {$I+}
  35.     { IOResult=5: Verz. existiert bereits, IOResult=3: Fehler }
  36.     IF (Erg<>0) AND (Erg<>5) THEN writeln('Fehler. Bitte anderes Verzeichnis wΣhlen!');
  37.   UNTIL (Erg=0) OR (Erg=5);
  38.  
  39.   { Kopiere CELLO.INI }
  40.  
  41.   GetMem(Kommando, 200);
  42.   GetMem(PDest, 200);
  43.   StrPCopy(PDest,Dest);
  44.  
  45.   StrCopy(Kommando,'COMMAND.COM /C cp-cello.bat ');
  46.   StrCat(Kommando, PDest);
  47.   WinExec(Kommando, SW_SHOW);
  48.  
  49.   Writeln;
  50.   Writeln('Bitte warten Sie, wΣhrend die CELLO-Dateien kopiert werden ...');
  51.  
  52.   { Abfragen }
  53.  
  54.   Writeln;
  55.   REPEAT
  56.     Write('Besteht unter Windows Internet-Zugang ? (j/n) : ');
  57.     Readln(Loc);
  58.   UNTIL Loc IN ['j','n'];
  59.  
  60.   { Schreibe CELLO.INI }
  61.  
  62.   GetMem(CelloPfad, 200);
  63.   StrCat(CelloPfad,PDest);
  64.   StrCat(CelloPfad,'\CELLO.INI');
  65.  
  66.   IF Loc='j'
  67.      THEN WritePrivateProfileString('CELLO','LocalOnly','no',CelloPfad)
  68.      ELSE BEGIN
  69.             Writeln('Kopiere WINSOCK-DLLs ...');
  70.             WritePrivateProfileString('CELLO','LocalOnly','yes',CelloPfad);
  71.             StrCopy(Kommando,'COMMAND.COM /C COPY *.dll ');
  72.             StrCat(Kommando, PDest);
  73.             WinExec(Kommando, SW_HIDE);
  74.           END;
  75.  
  76.   Writeln;
  77.   REPEAT
  78.     Writeln('Welche Grafikaufl÷sung soll eingestellt werden?');
  79.     Writeln('1 ...  640 x 480');
  80.     Writeln('2 ...  800 x 600');
  81.     Writeln('3 ... 1024 x 768');
  82.     Write('Ihre Wahl: ');
  83.     Readln(Auf);
  84.   UNTIL Auf IN ['1','2','3'];
  85.   Writeln;
  86.  
  87.   CASE Auf OF
  88.        '1': WritePrivateProfileString('CELLO','StyleFile', '640-480.sty',CelloPfad);
  89.        '2': WritePrivateProfileString('CELLO','StyleFile', '800-600.sty',CelloPfad);
  90.        '3': WritePrivateProfileString('CELLO','StyleFile','1024-768.sty',CelloPfad);
  91.   END;
  92.  
  93.   GetMem(Home,200);
  94.   StrCopy(Home,'file://localhost/');
  95.   StrCat(Home,PCurDrive);
  96.   StrCat(Home,':/www-seit/www-seit.htm');
  97.   WritePrivateProfileString('Cello','HomePage', Home, CelloPfad);
  98.  
  99.   GetMem(Viewer,200);
  100.   StrCopy(Viewer,PCurDrive);
  101.   WritePrivateProfileString('Extensions','gif',
  102.     StrCat(Viewer,':\viewer\gv\gv057.exe ^.gif'), CelloPfad);
  103.   StrCopy(Viewer,PCurDrive);
  104.   WritePrivateProfileString('Extensions','jpg',
  105.     StrCat(Viewer,':\viewer\gv\gv057.exe ^.jpg'), CelloPfad);
  106.   StrCopy(Viewer,PCurDrive);
  107.   WritePrivateProfileString('Extensions','bmp',
  108.     StrCat(Viewer,':\viewer\gv\gv057.exe ^.bmp'), CelloPfad);
  109.  
  110.   StrCopy(Viewer,PCurDrive);
  111.   WritePrivateProfileString('Extensions','au',
  112.     StrCat(Viewer,':\viewer\wplny\wplany.exe -u -r 8000 ^.au'), CelloPfad);
  113.   StrCopy(Viewer,PCurDrive);
  114.   WritePrivateProfileString('Extensions','snd',
  115.     StrCat(Viewer,':\viewer\wplny\wplany.exe ^.snd'), CelloPfad);
  116.   StrCopy(Viewer,PCurDrive);
  117.   WritePrivateProfileString('Extensions','voc',
  118.     StrCat(Viewer,':\viewer\wplny\wplany.exe ^.voc'), CelloPfad);
  119.   StrCopy(Viewer,PCurDrive);
  120.   WritePrivateProfileString('Extensions','wav',
  121.     StrCat(Viewer,':\viewer\wplny\wplany.exe ^.wav'), CelloPfad);
  122.  
  123.   StrCopy(Viewer,PCurDrive);
  124.   WritePrivateProfileString('Extensions','txt',
  125.     StrCat(Viewer,':\viewer\fview105\fileview.exe ^.txt'), CelloPfad);
  126.  
  127.   StrCopy(Viewer,PCurDrive);
  128.   StrCat(Viewer,':\viewer\ghost\gswin.exe -I');
  129.   StrCat(Viewer,PCurDrive);
  130.   StrCat(Viewer,':\viewer\ghost\ ^.ps');
  131.   WritePrivateProfileString('Extensions','ps',Viewer,CelloPfad);
  132.  
  133.   StrCopy(Viewer,PCurDrive);
  134.   WritePrivateProfileString('Extensions','mpg',
  135.     StrCat(Viewer,':\viewer\vmpeg12\vmpegnwg.exe ^.mpg'), CelloPfad);
  136.  
  137. END.